#!/usr/bin/perl -w

print "enter string\n";
$string = <STDIN>;

print "enter number\n";
$num = <STDIN>;

while ($num > 0){
print "$string \n";
$num -= 1;
}

